home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 November / 64er_Magazin_88-11_1988_Markt__Technik_de_Side_A.d64 / film maker2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  930b  |  31 lines
  1. 4 ifa=2thengosub90:sys828:close2:goto70
  2. 5 a=a+1:ifa=1thengosub100:load"mpmloader",8,8
  3. 6 poke56,157:poke52,157
  4. 7 print"[147]sprite-pics: filmmaker with 9 pictures
  5. 8 [133]"diskette mit sprite-bildern einlegen";a$:[134] f(15)
  6. 10 [140]:[129]e[178]0[164]9:[135] f(e):[130]
  7. 12 t[178]0
  8. 20 [135]a$:[139]a$[178]"*"[167]60
  9. 30 [151]252,[181](f(t)[173]256):[151]251,f(t)[171][194](252)[172]256:[158]828,a$
  10. 40 t[178]t[170]1:[137]20
  11. 60 [133]"programmdisk einlegen";a$
  12. 61 [153]"":[151]5631,t
  13. 62 [151]251,244:[151]252,21:[151]254,[181](f(t[170]1)[173]256)
  14. 65 [151]253,f(t[170]1)[171][194](254)[172]256:[147]"mpsaver",8,8
  15. 70 a[178]5:[153]"loadfilm ist bereit":[128]
  16. 90 [133]"loadbitte filmdisk einlegen";a$:[153]"bitte namen angeben"
  17. 95 [142]
  18. 96 [131] 8192,16384,20480,24576
  19. 97 [131] 32768,40960
  20. 98 [131] 49152,53248,57344,61440
  21. 100 [133]"load  hintergrundfarbe  12cmdcmdcmdcmd";h:[151]5623,h
  22. 110 [133]"  spritefarbe  1cmdcmdcmd";h:[151]5620,h
  23. 115 [151]5624,0:[133]"  multicolor-bilder (j/n)";m$
  24. 116 [139]m$[179][177]"j"[175]m$[179][177]"n"[167]115
  25. 117 [139]m$[178]"j"[167][151]5624,255:[137]120
  26. 118 [137]150
  27. 120 [133]"  multi-farbe 1   11cmdcmdcmdcmd";h:[151]5621,h
  28. 130 [133]"  multi-farbe 2   0cmdcmdcmd";h:[151]5622,h
  29. 150 [142]
  30. 1000 [131] 1,2,3,4,5,6,7,8,9,*
  31.